﻿object UMantenimientoPaquetesT: TUMantenimientoPaquetesT
  Left = 0
  Top = 0
  Align = alClient
  Caption = 'Mantenimiento de Paquetes Tur'#237'sticos'
  ClientHeight = 750
  ClientWidth = 1255
  Color = clBtnFace
  OldCreateOrder = False
  OnCreate = UniFormCreate
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object pgPaquetesT: TUniPageControl
    Left = 0
    Top = 0
    Width = 1255
    Height = 750
    ParentShowHint = False
    OnChange = pgPaquetesTChange
    ActivePage = UniTabSheet2
    TabOrder = 0
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    object UniTabSheet1: TUniTabSheet
      Caption = 'Consulta'
      object pnlBuscarPaq: TUniPanel
        Left = 0
        Top = 41
        Width = 1247
        Height = 168
        Align = alTop
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        TabOrder = 0
        object cbxFechaSalida: TUniCheckBox
          Left = 58
          Top = 62
          Width = 136
          Height = 17
          Checked = False
          Caption = 'Fecha de salida:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 1
          OnClick = cbxFechaSalidaClick
        end
        object dbBusqPaqDesde: TUniDateTimePicker
          Left = 108
          Top = 95
          Width = 120
          Height = 21
          DateTime = 41043.000000000000000000
          DateFormat = 'dd/MM/yyyy'
          TimeFormat = 'HH:mm:ss'
          Kind = tUniDate
          FirstDayOfWeek = dowLocaleDefault
          TabOrder = 2
          ParentColor = False
          Color = clWhite
        end
        object dbBusqPaqHasta: TUniDateTimePicker
          Left = 109
          Top = 136
          Width = 120
          Height = 21
          DateTime = 41043.000000000000000000
          DateFormat = 'dd/MM/yyyy'
          TimeFormat = 'HH:mm:ss'
          Kind = tUniDate
          FirstDayOfWeek = dowLocaleDefault
          TabOrder = 3
          ParentColor = False
          Color = clWhite
        end
        object lblDesde: TUniLabel
          Left = 58
          Top = 95
          Width = 44
          Height = 17
          Caption = 'Desde:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 4
        end
        object lblHasta: TUniLabel
          Left = 58
          Top = 136
          Width = 41
          Height = 17
          Caption = 'Hasta:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 5
        end
        object lblCodigoProveedorC: TUniLabel
          Left = 687
          Top = 25
          Width = 73
          Height = 17
          Caption = 'Hospedaje:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 6
        end
        object dbBusqPaqCodigoH: TUniEdit
          Left = 805
          Top = 20
          Width = 83
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 7
          Color = clWindow
          OnKeyPress = dbBusqPaqCodigoHKeyPress
        end
        object btnBuscadorP: TUniButton
          Left = 894
          Top = 20
          Width = 25
          Height = 22
          Caption = '...'
          TabOrder = 8
          OnClick = btnBuscadorPClick
        end
        object dbBusqPaqNombreH: TUniEdit
          Left = 925
          Top = 20
          Width = 313
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 9
          Color = clWindow
          OnKeyPress = dbBusqPaqNombreHKeyPress
        end
        object dbBusqPaqCodigoT: TUniEdit
          Left = 805
          Top = 60
          Width = 85
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 10
          Color = clWindow
          OnKeyPress = dbBusqPaqCodigoTKeyPress
        end
        object btnBuscadorT: TUniButton
          Left = 896
          Top = 58
          Width = 25
          Height = 22
          Caption = '...'
          TabOrder = 11
          OnClick = btnBuscadorTClick
        end
        object dbBusqPaqNombreT: TUniEdit
          Left = 927
          Top = 58
          Width = 313
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 12
          Color = clWindow
          OnKeyPress = dbBusqPaqNombreTKeyPress
        end
        object lblCodigoServicioC: TUniLabel
          Left = 687
          Top = 63
          Width = 70
          Height = 17
          Caption = 'Transporte:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 13
        end
        object lblBusqPaqueteT: TUniLabel
          Left = 58
          Top = 25
          Width = 113
          Height = 17
          Caption = 'Paquete Tur'#237'stico:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 14
        end
        object dbBusqCodigoPaqT: TUniEdit
          Left = 174
          Top = 20
          Width = 85
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 15
          Color = clWindow
          OnExit = dbBusqCodigoPaqTExit
          OnKeyPress = dbBusqCodigoPaqTKeyPress
        end
        object btnBuscadorPaq: TUniButton
          Left = 265
          Top = 20
          Width = 25
          Height = 22
          Caption = '...'
          TabOrder = 16
          OnClick = btnBuscadorPaqClick
        end
        object dbBusqNombrePaqT: TUniEdit
          Left = 296
          Top = 20
          Width = 313
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 17
          Color = clWindow
          OnKeyPress = dbBusqNombrePaqTKeyPress
        end
        object UniLabel3: TUniLabel
          Left = 687
          Top = 95
          Width = 89
          Height = 17
          Caption = 'Gu'#237'a tur'#237'stico:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 18
        end
        object dbBusqPaqCodigoG: TUniEdit
          Left = 805
          Top = 95
          Width = 85
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 19
          Color = clWindow
          OnKeyPress = dbBusqPaqCodigoGKeyPress
        end
        object btnBuscadorG: TUniButton
          Left = 896
          Top = 95
          Width = 25
          Height = 22
          Caption = '...'
          TabOrder = 20
          OnClick = btnBuscadorGClick
        end
        object dbBusqPaqNombreG: TUniEdit
          Left = 927
          Top = 95
          Width = 313
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 21
          Color = clWindow
          OnKeyPress = dbBusqPaqNombreGKeyPress
        end
      end
      object btnBuscarPaq: TUniButton
        Left = 0
        Top = 209
        Width = 1247
        Height = 40
        Caption = 'Buscar'
        Anchors = [akLeft, akTop, akRight]
        Align = alTop
        ParentFont = False
        Font.Height = -20
        TabOrder = 1
        OnClick = btnBuscarPaqClick
      end
      object dbgConsultaPaquetes: TUniDBGrid
        Left = 0
        Top = 249
        Width = 1247
        Height = 473
        DataSource = dsMantePaq
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ReadOnly = True
        WebOptions.LoadMaskMsg = 'Please wait...'
        OnDrawColumnCell = dbgConsultaPaquetesDrawColumnCell
        OnDblClick = dbgConsultaPaquetesDblClick
        StripeRows = False
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 2
        Columns = <
          item
            FieldName = 'ID_PAQUETE'
            Title.Caption = 'CODIGO'
            Title.Font.Style = [fsBold]
            Width = 48
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'DENOMINACION'
            Title.Caption = 'DENOMINACION'
            Title.Font.Style = [fsBold]
            Width = 304
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'FECHA_PARTIDA'
            Title.Caption = 'FECHA DE PARTIDA'
            Title.Font.Style = [fsBold]
            Width = 110
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'FECHA_LLEGADA'
            Title.Caption = 'FECHA DE LLEGADA'
            Title.Font.Style = [fsBold]
            Width = 109
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'HORA_PARTIDA'
            Title.Caption = 'HORA DE PARTIDA'
            Title.Font.Style = [fsBold]
            Width = 107
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'HORA_LLEGADA'
            Title.Caption = 'HORA DE LLEGADA'
            Title.Font.Style = [fsBold]
            Width = 106
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'ITINERARIO'
            Title.Caption = 'ITINERARIO'
            Title.Font.Style = [fsBold]
            Width = 6004
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'COD_PROV_HOSPEDAJE'
            Title.Caption = 'CODIGO HOSPEDAJE'
            Title.Font.Style = [fsBold]
            Width = 115
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'COD_PROV_TRANSP'
            Title.Caption = 'CODIGO TRANSPORTE'
            Title.Font.Style = [fsBold]
            Width = 124
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'COD_PROV_GUIA'
            Title.Caption = 'CODIGO GUIA'
            Title.Font.Style = [fsBold]
            Width = 80
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'SERVICIOS_INCLUIDOS'
            Title.Caption = 'SERVICIOS INCLUIDOS'
            Title.Font.Style = [fsBold]
            Width = 3004
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'COSTO_SGL'
            Title.Caption = 'COSTO HAB. SGL'
            Title.Font.Style = [fsBold]
            Width = 94
            Visible = True
            Alignment = taRightJustify
            Expanded = False
          end
          item
            FieldName = 'COSTO_DBL'
            Title.Caption = 'COSTO HAB. DBL'
            Title.Font.Style = [fsBold]
            Width = 94
            Visible = True
            Alignment = taRightJustify
            Expanded = False
          end
          item
            FieldName = 'COSTO_TPL'
            Title.Caption = 'COSTO HAB. TPL'
            Title.Font.Style = [fsBold]
            Width = 94
            Visible = True
            Alignment = taRightJustify
            Expanded = False
          end
          item
            FieldName = 'COSTO_CPL'
            Title.Caption = 'COSTO HAB. CPL'
            Title.Font.Style = [fsBold]
            Width = 94
            Visible = True
            Alignment = taRightJustify
            Expanded = False
          end
          item
            FieldName = 'COSTO_SIN_HOTEL'
            Title.Caption = 'COSTO PAQ. SIN HOTEL'
            Title.Font.Style = [fsBold]
            Width = 130
            Visible = True
            Alignment = taRightJustify
            Expanded = False
          end
          item
            FieldName = 'TIPO_MONEDA'
            Title.Caption = 'TIPO MONEDA'
            Title.Font.Style = [fsBold]
            Width = 81
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'OBSERVACIONES'
            Title.Caption = 'OBSERVACIONES'
            Title.Font.Style = [fsBold]
            Width = 1504
            Visible = True
            Expanded = False
          end>
      end
      object pnlTitulo: TUniPanel
        Left = 0
        Top = 0
        Width = 1247
        Height = 41
        Align = alTop
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        TabOrder = 3
        object lblConsultaPaq: TUniLabel
          Left = 1
          Top = 1
          Width = 1245
          Height = 39
          Alignment = taCenter
          AutoSize = False
          Caption = 'Consulta de Paquetes Tur'#237'sticos'
          Align = alClient
          Anchors = [akLeft, akTop, akRight, akBottom]
          ParentFont = False
          Font.Color = clNavy
          Font.Height = -20
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          ParentColor = False
          Color = clSkyBlue
          Transparent = False
          TabOrder = 1
        end
      end
    end
    object UniTabSheet2: TUniTabSheet
      Caption = 'Mantenimiento'
      object pnlGeneral: TUniPanel
        Left = 0
        Top = 0
        Width = 1247
        Height = 722
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clBtnFace
        TabOrder = 0
        object pnlBotones: TUniPanel
          Left = 1
          Top = 40
          Width = 1245
          Height = 49
          Align = alTop
          Anchors = [akLeft, akTop, akRight]
          Color = clBtnFace
          TabOrder = 1
          object btnGuardarPaq: TUniButton
            Left = 80
            Top = 20
            Width = 75
            Height = 23
            Caption = '&Guardar'
            TabOrder = 1
            OnClick = btnGuardarPaqClick
          end
          object btnCancelarPaq: TUniButton
            Left = 231
            Top = 21
            Width = 75
            Height = 23
            Caption = '&Cancelar'
            TabOrder = 2
            OnClick = btnCancelarPaqClick
          end
          object btnNuevoPaq: TUniButton
            Left = 3
            Top = 20
            Width = 75
            Height = 23
            Caption = '&Nuevo'
            TabOrder = 3
            OnClick = btnNuevoPaqClick
          end
          object btnEditarPaq: TUniButton
            Left = 79
            Top = 21
            Width = 75
            Height = 23
            Caption = '&Editar'
            TabOrder = 4
            OnClick = btnEditarPaqClick
          end
          object btnEliminarPaq: TUniButton
            Left = 155
            Top = 21
            Width = 75
            Height = 23
            Caption = '&Dar de Baja'
            TabOrder = 5
            OnClick = btnEliminarPaqClick
          end
          object lblTarea: TUniLabel
            Left = 3
            Top = 4
            Width = 147
            Height = 16
            Caption = ' Seleccione una tarea:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 6
          end
        end
        object pnlCargaDatosPaq: TUniPanel
          Left = 1
          Top = 89
          Width = 1245
          Height = 633
          Align = alClient
          Anchors = [akLeft, akTop, akRight, akBottom]
          Color = clBtnFace
          TabOrder = 2
          object dbCodigoPaquete: TUniDBEdit
            Left = 168
            Top = 47
            Width = 88
            Height = 22
            Enabled = False
            DataField = 'ID_PAQUETE'
            DataSource = dsMantePaq
            PasswordChar = #0
            CharCase = ecUpperCase
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Name = 'Century Gothic'
            TabOrder = 1
            Color = clWindow
            OnKeyPress = dbCodigoPaqueteKeyPress
          end
          object lblCodigoPaquete: TUniLabel
            Left = 22
            Top = 47
            Width = 52
            Height = 16
            Caption = 'C'#243'digo:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 2
          end
          object lblNombrePaquete: TUniLabel
            Left = 21
            Top = 83
            Width = 81
            Height = 16
            Caption = 'Descripci'#243'n:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 3
          end
          object lblDatosPaquete: TUniLabel
            Left = 22
            Top = 14
            Width = 133
            Height = 16
            Caption = 'DATOS DEL PAQUETE:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 4
          end
          object dbDescripcion: TUniDBMemo
            Left = 168
            Top = 83
            Width = 302
            Height = 141
            DataField = 'DENOMINACION'
            DataSource = dsMantePaq
            TabOrder = 5
            Color = clWindow
            OnKeyPress = dbDescripcionKeyPress
          end
          object lblPrograma: TUniLabel
            Left = 21
            Top = 251
            Width = 129
            Height = 16
            Caption = 'Programa del viaje:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 6
          end
          object dbProgramaPaq: TUniDBMemo
            Left = 168
            Top = 251
            Width = 302
            Height = 310
            DataField = 'ITINERARIO'
            DataSource = dsMantePaq
            TabOrder = 7
            Color = clWindow
            OnKeyPress = dbProgramaPaqKeyPress
          end
          object lblIncluye: TUniLabel
            Left = 508
            Top = 47
            Width = 52
            Height = 16
            Caption = 'Incluye:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 8
          end
          object dbIncluye: TUniDBMemo
            Left = 626
            Top = 47
            Width = 250
            Height = 282
            DataField = 'SERVICIOS_INCLUIDOS'
            DataSource = dsMantePaq
            TabOrder = 9
            Color = clWindow
            OnKeyPress = dbIncluyeKeyPress
          end
          object lblObservaciones: TUniLabel
            Left = 508
            Top = 356
            Width = 101
            Height = 16
            Caption = 'Observaciones:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 10
          end
          object dbObservaciones: TUniDBMemo
            Left = 626
            Top = 356
            Width = 250
            Height = 205
            DataField = 'OBSERVACIONES'
            DataSource = dsMantePaq
            TabOrder = 11
            Color = clWindow
            OnKeyPress = dbObservacionesKeyPress
          end
          object pnlFechasHorarios: TUniPanel
            Left = 907
            Top = 47
            Width = 374
            Height = 161
            Color = clBtnFace
            TabOrder = 12
            object lblFechaSalida: TUniLabel
              Left = 3
              Top = 43
              Width = 117
              Height = 16
              Caption = 'Fecha de partida:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 1
            end
            object dbFechaPartida: TUniDBDateTimePicker
              Left = 136
              Top = 42
              Width = 86
              Height = 21
              DateTime = 41230.000000000000000000
              DateFormat = 'dd/MM/yyyy'
              TimeFormat = 'HH:mm:ss'
              Kind = tUniDate
              FirstDayOfWeek = dowLocaleDefault
              TabOrder = 2
              ParentColor = False
              Color = clWhite
              DataField = 'FECHA_PARTIDA'
              DataSource = dsMantePaq
            end
            object lblFechaLlegada: TUniLabel
              Left = 3
              Top = 73
              Width = 120
              Height = 16
              Caption = 'Fecha de llegada:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 3
            end
            object dbFechaLlegada: TUniDBDateTimePicker
              Left = 136
              Top = 72
              Width = 86
              Height = 21
              DateTime = 41138.000000000000000000
              DateFormat = 'dd/MM/yyyy'
              TimeFormat = 'HH:mm:ss'
              Kind = tUniDate
              FirstDayOfWeek = dowLocaleDefault
              TabOrder = 4
              ParentColor = False
              Color = clWhite
              DataField = 'FECHA_LLEGADA'
              DataSource = dsMantePaq
            end
            object lblHoraPartida: TUniLabel
              Left = 3
              Top = 103
              Width = 109
              Height = 16
              Caption = 'Hora de partida:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 5
            end
            object dbHoraPartida: TUniDBDateTimePicker
              Left = 136
              Top = 102
              Width = 86
              Height = 21
              DateTime = 0.322916666664241300
              DateFormat = 'dd/MM/yyyy'
              TimeFormat = 'HH:mm:ss'
              Kind = tUniTime
              FirstDayOfWeek = dowLocaleDefault
              TabOrder = 6
              ParentColor = False
              Color = clWhite
              DataField = 'HORA_PARTIDA'
              DataSource = dsMantePaq
            end
            object lblHoraLlegada: TUniLabel
              Left = 3
              Top = 133
              Width = 112
              Height = 16
              Caption = 'Hora de llegada:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 7
            end
            object dbHoraLlegada: TUniDBDateTimePicker
              Left = 136
              Top = 132
              Width = 86
              Height = 21
              DateTime = 0.979166666664241300
              DateFormat = 'dd/MM/yyyy'
              TimeFormat = 'HH:mm:ss'
              Kind = tUniTime
              FirstDayOfWeek = dowLocaleDefault
              TabOrder = 8
              ParentColor = False
              Color = clWhite
              DataField = 'HORA_LLEGADA'
              DataSource = dsMantePaq
            end
            object lblFechasHorarios: TUniLabel
              Left = 3
              Top = 11
              Width = 119
              Height = 16
              Caption = 'Fechas y Horarios:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold, fsUnderline]
              TabOrder = 9
            end
          end
          object pnlProveedores: TUniPanel
            Left = 906
            Top = 224
            Width = 374
            Height = 185
            Color = clBtnFace
            TabOrder = 13
            object lblGuiaTuristico: TUniLabel
              Left = 3
              Top = 153
              Width = 91
              Height = 16
              Caption = 'Gu'#237'a Tur'#237'stico:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 1
            end
            object dbCodGuía: TUniEdit
              Left = 100
              Top = 152
              Width = 71
              Height = 22
              PasswordChar = #0
              CharCase = ecNormal
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              TabOrder = 2
              Color = clWindow
              OnKeyPress = dbCodGuíaKeyPress
            end
            object btnBuscadorGuia: TUniButton
              Left = 177
              Top = 152
              Width = 25
              Height = 22
              Caption = '...'
              TabOrder = 3
              OnClick = btnBuscadorGuiaClick
            end
            object dbNombreGuía: TUniEdit
              Left = 210
              Top = 152
              Width = 161
              Height = 22
              PasswordChar = #0
              CharCase = ecNormal
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              TabOrder = 4
              Color = clWindow
              OnKeyPress = dbNombreGuíaKeyPress
            end
            object lblTransporte: TUniLabel
              Left = 3
              Top = 119
              Width = 72
              Height = 16
              Caption = 'Transporte:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 5
            end
            object dbCodTransporte: TUniEdit
              Left = 100
              Top = 115
              Width = 71
              Height = 22
              PasswordChar = #0
              CharCase = ecNormal
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              TabOrder = 6
              Color = clWindow
              OnKeyPress = dbCodTransporteKeyPress
            end
            object btnBuscadorTransp: TUniButton
              Left = 177
              Top = 115
              Width = 25
              Height = 22
              Caption = '...'
              TabOrder = 7
              OnClick = btnBuscadorTranspClick
            end
            object dbNombreTransporte: TUniEdit
              Left = 208
              Top = 115
              Width = 163
              Height = 22
              PasswordChar = #0
              CharCase = ecNormal
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              TabOrder = 8
              Color = clWindow
              OnKeyPress = dbNombreTransporteKeyPress
            end
            object lblHospedaje: TUniLabel
              Left = 3
              Top = 81
              Width = 74
              Height = 16
              Caption = 'Hospedaje:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 9
            end
            object dbCodHospedaje: TUniEdit
              Left = 100
              Top = 75
              Width = 71
              Height = 22
              PasswordChar = #0
              CharCase = ecNormal
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              TabOrder = 10
              Color = clWindow
              OnKeyPress = dbCodHospedajeKeyPress
            end
            object btnBuscadorHosp: TUniButton
              Left = 177
              Top = 75
              Width = 25
              Height = 22
              Caption = '...'
              TabOrder = 11
              OnClick = btnBuscadorHospClick
            end
            object dbNombreHospedaje: TUniEdit
              Left = 208
              Top = 74
              Width = 163
              Height = 22
              PasswordChar = #0
              CharCase = ecNormal
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              TabOrder = 12
              Color = clWindow
              OnKeyPress = dbNombreHospedajeKeyPress
            end
            object lblServicios: TUniLabel
              Left = 3
              Top = 10
              Width = 61
              Height = 16
              Caption = 'Servicios:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold, fsUnderline]
              TabOrder = 13
            end
            object UniLabel1: TUniLabel
              Left = 3
              Top = 41
              Width = 145
              Height = 16
              Caption = 'Requerir'#225' Hospedaje?'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 14
            end
            object pnlHospedaje: TUniPanel
              Left = 210
              Top = 38
              Width = 161
              Height = 22
              Color = clBtnFace
              TabOrder = 15
              object rbSi: TUniRadioButton
                Left = 23
                Top = 2
                Width = 42
                Height = 17
                Checked = False
                Caption = 'Si'
                TabOrder = 1
                OnClick = rbSiClick
              end
              object rbNo: TUniRadioButton
                Left = 111
                Top = 2
                Width = 42
                Height = 17
                Checked = False
                Caption = 'No'
                TabOrder = 2
                OnClick = rbNoClick
              end
            end
          end
          object pnlPreciosHotel: TUniPanel
            Left = 906
            Top = 426
            Width = 273
            Height = 135
            Color = clBtnFace
            TabOrder = 14
            object lblPrecioSGL: TUniLabel
              Left = 3
              Top = 25
              Width = 72
              Height = 16
              Caption = 'Precio SGL:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 1
            end
            object dbPrecioSGL: TUniDBEdit
              Left = 80
              Top = 21
              Width = 70
              Height = 22
              DataField = 'COSTO_SGL'
              DataSource = dsMantePaq
              PasswordChar = #0
              CharCase = ecUpperCase
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Name = 'Century Gothic'
              TabOrder = 2
              Color = clWindow
              OnKeyPress = dbPrecioSGLKeyPress
            end
            object lblPrecioDBL: TUniLabel
              Left = 3
              Top = 53
              Width = 71
              Height = 16
              Caption = 'Precio DBL:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 3
            end
            object dbPrecioDBL: TUniDBEdit
              Left = 80
              Top = 49
              Width = 69
              Height = 22
              DataField = 'COSTO_DBL'
              DataSource = dsMantePaq
              PasswordChar = #0
              CharCase = ecUpperCase
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Name = 'Century Gothic'
              TabOrder = 4
              Color = clWindow
              OnKeyPress = dbPrecioSGLKeyPress
            end
            object lblPrecioTPL: TUniLabel
              Left = 3
              Top = 77
              Width = 67
              Height = 16
              Caption = 'Precio TPL:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 5
            end
            object dbPrecioTPL: TUniDBEdit
              Left = 80
              Top = 77
              Width = 69
              Height = 22
              DataField = 'COSTO_TPL'
              DataSource = dsMantePaq
              PasswordChar = #0
              CharCase = ecUpperCase
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Name = 'Century Gothic'
              TabOrder = 6
              Color = clWindow
              OnKeyPress = dbPrecioSGLKeyPress
            end
            object lblPrecioCPL: TUniLabel
              Left = 3
              Top = 105
              Width = 71
              Height = 16
              Caption = 'Precio CPL:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 7
            end
            object dbPrecioCPL: TUniDBEdit
              Left = 80
              Top = 105
              Width = 69
              Height = 22
              DataField = 'COSTO_CPL'
              DataSource = dsMantePaq
              PasswordChar = #0
              CharCase = ecUpperCase
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Name = 'Century Gothic'
              TabOrder = 8
              Color = clWindow
              OnKeyPress = dbPrecioSGLKeyPress
            end
            object lblPrecios1: TUniLabel
              Left = 3
              Top = 3
              Width = 50
              Height = 16
              Caption = 'Precios:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold, fsUnderline]
              TabOrder = 9
            end
          end
          object pnlPrecioXPersona: TUniPanel
            Left = 906
            Top = 426
            Width = 273
            Height = 135
            Color = clBtnFace
            TabOrder = 15
            object lblPrecioXPersona: TUniLabel
              Left = 3
              Top = 42
              Width = 127
              Height = 16
              Caption = 'Precio por persona:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold]
              TabOrder = 1
            end
            object dbPrecioXPersona: TUniDBEdit
              Left = 136
              Top = 39
              Width = 70
              Height = 22
              DataField = 'COSTO_SIN_HOTEL'
              DataSource = dsMantePaq
              PasswordChar = #0
              CharCase = ecUpperCase
              MaxLength = 0
              CharEOL = #0
              ParentFont = False
              Font.Name = 'Century Gothic'
              TabOrder = 2
              Color = clWindow
              OnKeyPress = dbPrecioSGLKeyPress
            end
            object UniLabel7: TUniLabel
              Left = 3
              Top = 3
              Width = 50
              Height = 16
              Caption = 'Precios:'
              ParentFont = False
              Font.Height = -13
              Font.Name = 'Century Gothic'
              Font.Style = [fsBold, fsUnderline]
              TabOrder = 3
            end
          end
          object rgMoneda: TUniRadioGroup
            Left = 1185
            Top = 426
            Width = 96
            Height = 135
            Items.Strings = (
              'Guarani'
              'Dolar'
              'Real'
              'Euro')
            ItemIndex = -1
            Caption = 'Tipo de Moneda:'
            TabOrder = 16
            ParentFont = False
          end
        end
        object pnl1: TUniPanel
          Left = 1
          Top = 1
          Width = 1245
          Height = 40
          Align = alTop
          Anchors = [akLeft, akTop, akRight]
          Color = clBtnFace
          TabOrder = 3
          object lblMantenimientoPaquetesT: TUniLabel
            Left = 1
            Top = 1
            Width = 1243
            Height = 38
            Alignment = taCenter
            AutoSize = False
            Caption = 'Mantenimiento de Paquetes Tur'#237'sticos'
            Align = alClient
            Anchors = [akLeft, akTop, akRight, akBottom]
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -20
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            ParentColor = False
            Color = clSkyBlue
            Transparent = False
            TabOrder = 1
          end
        end
      end
    end
  end
  object qryCodPaquetesT: TSQLQuery
    GetMetadata = True
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select first 1 a.ID_PAQUETE'
      'from PAQUETE_TURISTICO a'
      'order by a.ID_PAQUETE desc')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 32
    Top = 656
    object qryCodPaquetesTID_PAQUETE: TStringField
      FieldName = 'ID_PAQUETE'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object dsCodPaquetesT: TDataSource
    DataSet = cdsCodPaquetesT
    Left = 104
    Top = 656
  end
  object provCodPaquetesT: TDataSetProvider
    DataSet = qryCodPaquetesT
    Left = 176
    Top = 656
  end
  object cdsCodPaquetesT: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'provCodPaquetesT'
    Left = 256
    Top = 656
    object cdsCodPaquetesTID_PAQUETE: TStringField
      FieldName = 'ID_PAQUETE'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object qryMantePaq: TSQLQuery
    GetMetadata = True
    MaxBlobSize = 1
    Params = <>
    SQL.Strings = (
      'SELECT A.*'
      'FROM PAQUETE_TURISTICO A')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 24
    Top = 424
    object qryMantePaqID_PAQUETE: TStringField
      FieldName = 'ID_PAQUETE'
      Required = True
      FixedChar = True
      Size = 7
    end
    object qryMantePaqDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object qryMantePaqFECHA_PARTIDA: TDateField
      FieldName = 'FECHA_PARTIDA'
    end
    object qryMantePaqFECHA_LLEGADA: TDateField
      FieldName = 'FECHA_LLEGADA'
    end
    object qryMantePaqHORA_PARTIDA: TTimeField
      FieldName = 'HORA_PARTIDA'
    end
    object qryMantePaqHORA_LLEGADA: TTimeField
      FieldName = 'HORA_LLEGADA'
    end
    object qryMantePaqITINERARIO: TStringField
      FieldName = 'ITINERARIO'
      Size = 1000
    end
    object qryMantePaqCOD_PROV_HOSPEDAJE: TStringField
      FieldName = 'COD_PROV_HOSPEDAJE'
      FixedChar = True
      Size = 7
    end
    object qryMantePaqCOD_PROV_TRANSP: TStringField
      FieldName = 'COD_PROV_TRANSP'
      FixedChar = True
      Size = 7
    end
    object qryMantePaqCOD_PROV_GUIA: TStringField
      FieldName = 'COD_PROV_GUIA'
      FixedChar = True
      Size = 7
    end
    object qryMantePaqSERVICIOS_INCLUIDOS: TStringField
      FieldName = 'SERVICIOS_INCLUIDOS'
      Size = 500
    end
    object qryMantePaqCOSTO_SGL: TLargeintField
      FieldName = 'COSTO_SGL'
    end
    object qryMantePaqCOSTO_DBL: TLargeintField
      FieldName = 'COSTO_DBL'
    end
    object qryMantePaqCOSTO_TPL: TLargeintField
      FieldName = 'COSTO_TPL'
    end
    object qryMantePaqCOSTO_CPL: TLargeintField
      FieldName = 'COSTO_CPL'
    end
    object qryMantePaqCOSTO_SIN_HOTEL: TLargeintField
      FieldName = 'COSTO_SIN_HOTEL'
    end
    object qryMantePaqTIPO_MONEDA: TStringField
      FieldName = 'TIPO_MONEDA'
      Required = True
      FixedChar = True
      Size = 1
    end
    object qryMantePaqOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 250
    end
    object qryMantePaqESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  object dsMantePaq: TDataSource
    DataSet = cdsMantePaq
    Left = 24
    Top = 488
  end
  object provMantePaq: TDataSetProvider
    DataSet = qryMantePaq
    Left = 24
    Top = 544
  end
  object cdsMantePaq: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'provMantePaq'
    OnNewRecord = cdsMantePaqNewRecord
    Left = 24
    Top = 600
    object cdsMantePaqID_PAQUETE: TStringField
      FieldName = 'ID_PAQUETE'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsMantePaqDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cdsMantePaqFECHA_PARTIDA: TDateField
      FieldName = 'FECHA_PARTIDA'
    end
    object cdsMantePaqFECHA_LLEGADA: TDateField
      FieldName = 'FECHA_LLEGADA'
    end
    object cdsMantePaqHORA_PARTIDA: TTimeField
      FieldName = 'HORA_PARTIDA'
    end
    object cdsMantePaqHORA_LLEGADA: TTimeField
      FieldName = 'HORA_LLEGADA'
    end
    object cdsMantePaqITINERARIO: TStringField
      FieldName = 'ITINERARIO'
      Size = 1000
    end
    object cdsMantePaqCOD_PROV_HOSPEDAJE: TStringField
      FieldName = 'COD_PROV_HOSPEDAJE'
      FixedChar = True
      Size = 7
    end
    object cdsMantePaqCOD_PROV_TRANSP: TStringField
      FieldName = 'COD_PROV_TRANSP'
      FixedChar = True
      Size = 7
    end
    object cdsMantePaqCOD_PROV_GUIA: TStringField
      FieldName = 'COD_PROV_GUIA'
      FixedChar = True
      Size = 7
    end
    object cdsMantePaqSERVICIOS_INCLUIDOS: TStringField
      FieldName = 'SERVICIOS_INCLUIDOS'
      Size = 500
    end
    object cdsMantePaqCOSTO_SGL: TLargeintField
      FieldName = 'COSTO_SGL'
    end
    object cdsMantePaqCOSTO_DBL: TLargeintField
      FieldName = 'COSTO_DBL'
    end
    object cdsMantePaqCOSTO_TPL: TLargeintField
      FieldName = 'COSTO_TPL'
    end
    object cdsMantePaqCOSTO_CPL: TLargeintField
      FieldName = 'COSTO_CPL'
    end
    object cdsMantePaqCOSTO_SIN_HOTEL: TLargeintField
      FieldName = 'COSTO_SIN_HOTEL'
    end
    object cdsMantePaqTIPO_MONEDA: TStringField
      FieldName = 'TIPO_MONEDA'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cdsMantePaqOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 250
    end
    object cdsMantePaqESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  object qryProvPaqG: TSQLQuery
    GetMetadata = True
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'COD_GENERAL_PROV'
        ParamType = ptInput
        Size = 8
        Value = '0000014'
      end>
    SQL.Strings = (
      'Select *'
      'From PERSONAS_PROVEEDORES'
      'WHERE COD_GENERAL_PROV = :codigo')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 112
    Top = 424
    object qryProvPaqGCOD_GENERAL_PROV: TStringField
      FieldName = 'COD_GENERAL_PROV'
      Required = True
      FixedChar = True
      Size = 7
    end
    object qryProvPaqGDIAS_VENCIMIENTO_FACTURA: TIntegerField
      FieldName = 'DIAS_VENCIMIENTO_FACTURA'
    end
    object qryProvPaqGCONTACTO: TStringField
      FieldName = 'CONTACTO'
      Size = 100
    end
    object qryProvPaqGID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      FixedChar = True
      Size = 7
    end
    object qryProvPaqGESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      FixedChar = True
      Size = 1
    end
    object qryProvPaqGCALIFICACION: TSmallintField
      FieldName = 'CALIFICACION'
    end
    object qryProvPaqGNOMBRE_EMPRESA: TStringField
      FieldName = 'NOMBRE_EMPRESA'
      FixedChar = True
      Size = 50
    end
    object qryProvPaqGOBSERVACION_CALIFICACION: TStringField
      FieldName = 'OBSERVACION_CALIFICACION'
      Size = 100
    end
  end
  object dsProvPaqG: TDataSource
    DataSet = cdsProvPaqG
    Left = 112
    Top = 480
  end
  object provProvPaqG: TDataSetProvider
    DataSet = qryProvPaqG
    Left = 112
    Top = 528
  end
  object cdsProvPaqG: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'COD_GENERAL_PROV'
    MasterFields = 'COD_PROV_GUIA'
    MasterSource = dsMantePaq
    PacketRecords = 0
    Params = <>
    ProviderName = 'provProvPaqG'
    OnReconcileError = cdsProvPaqGReconcileError
    Left = 112
    Top = 584
    object cdsProvPaqGCOD_GENERAL_PROV: TStringField
      FieldName = 'COD_GENERAL_PROV'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsProvPaqGDIAS_VENCIMIENTO_FACTURA: TIntegerField
      FieldName = 'DIAS_VENCIMIENTO_FACTURA'
    end
    object cdsProvPaqGCONTACTO: TStringField
      FieldName = 'CONTACTO'
      Size = 100
    end
    object cdsProvPaqGID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      FixedChar = True
      Size = 7
    end
    object cdsProvPaqGESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      FixedChar = True
      Size = 1
    end
    object cdsProvPaqGCALIFICACION: TSmallintField
      FieldName = 'CALIFICACION'
    end
    object cdsProvPaqGNOMBRE_EMPRESA: TStringField
      FieldName = 'NOMBRE_EMPRESA'
      FixedChar = True
      Size = 50
    end
    object cdsProvPaqGOBSERVACION_CALIFICACION: TStringField
      FieldName = 'OBSERVACION_CALIFICACION'
      Size = 100
    end
  end
  object qryProvPaqT: TSQLQuery
    GetMetadata = True
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'COD_GENERAL_PROV'
        ParamType = ptInput
        Size = 8
        Value = '0000015'
      end>
    SQL.Strings = (
      'Select *'
      'From PERSONAS_PROVEEDORES'
      'WHERE COD_GENERAL_PROV = :codigo')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 184
    Top = 424
    object qryProvPaqTCOD_GENERAL_PROV: TStringField
      FieldName = 'COD_GENERAL_PROV'
      Required = True
      FixedChar = True
      Size = 7
    end
    object qryProvPaqTDIAS_VENCIMIENTO_FACTURA: TIntegerField
      FieldName = 'DIAS_VENCIMIENTO_FACTURA'
    end
    object qryProvPaqTCONTACTO: TStringField
      FieldName = 'CONTACTO'
      Size = 100
    end
    object qryProvPaqTID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      FixedChar = True
      Size = 7
    end
    object qryProvPaqTESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      FixedChar = True
      Size = 1
    end
    object qryProvPaqTCALIFICACION: TSmallintField
      FieldName = 'CALIFICACION'
    end
    object qryProvPaqTNOMBRE_EMPRESA: TStringField
      FieldName = 'NOMBRE_EMPRESA'
      FixedChar = True
      Size = 50
    end
    object qryProvPaqTOBSERVACION_CALIFICACION: TStringField
      FieldName = 'OBSERVACION_CALIFICACION'
      Size = 100
    end
  end
  object dsProvPaqT: TDataSource
    DataSet = cdsProvPaqT
    Left = 184
    Top = 480
  end
  object provProvPaqT: TDataSetProvider
    DataSet = qryProvPaqT
    Left = 184
    Top = 528
  end
  object cdsProvPaqT: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'COD_GENERAL_PROV'
    MasterFields = 'COD_PROV_TRANSP'
    MasterSource = dsMantePaq
    PacketRecords = 0
    Params = <>
    ProviderName = 'provProvPaqT'
    OnReconcileError = cdsProvPaqTReconcileError
    Left = 184
    Top = 584
    object cdsProvPaqTCOD_GENERAL_PROV: TStringField
      FieldName = 'COD_GENERAL_PROV'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsProvPaqTDIAS_VENCIMIENTO_FACTURA: TIntegerField
      FieldName = 'DIAS_VENCIMIENTO_FACTURA'
    end
    object cdsProvPaqTCONTACTO: TStringField
      FieldName = 'CONTACTO'
      Size = 100
    end
    object cdsProvPaqTID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      FixedChar = True
      Size = 7
    end
    object cdsProvPaqTESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      FixedChar = True
      Size = 1
    end
    object cdsProvPaqTCALIFICACION: TSmallintField
      FieldName = 'CALIFICACION'
    end
    object cdsProvPaqTNOMBRE_EMPRESA: TStringField
      FieldName = 'NOMBRE_EMPRESA'
      FixedChar = True
      Size = 50
    end
    object cdsProvPaqTOBSERVACION_CALIFICACION: TStringField
      FieldName = 'OBSERVACION_CALIFICACION'
      Size = 100
    end
  end
  object qryProvPaqH: TSQLQuery
    GetMetadata = True
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'COD_GENERAL_PROV'
        ParamType = ptInput
        Size = 8
        Value = '0000013'
      end>
    SQL.Strings = (
      'Select *'
      'From PERSONAS_PROVEEDORES'
      'WHERE COD_GENERAL_PROV = :codigo')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 272
    Top = 424
    object qryProvPaqHCOD_GENERAL_PROV: TStringField
      FieldName = 'COD_GENERAL_PROV'
      Required = True
      FixedChar = True
      Size = 7
    end
    object qryProvPaqHDIAS_VENCIMIENTO_FACTURA: TIntegerField
      FieldName = 'DIAS_VENCIMIENTO_FACTURA'
    end
    object qryProvPaqHCONTACTO: TStringField
      FieldName = 'CONTACTO'
      Size = 100
    end
    object qryProvPaqHID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      FixedChar = True
      Size = 7
    end
    object qryProvPaqHESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      FixedChar = True
      Size = 1
    end
    object qryProvPaqHCALIFICACION: TSmallintField
      FieldName = 'CALIFICACION'
    end
    object qryProvPaqHNOMBRE_EMPRESA: TStringField
      FieldName = 'NOMBRE_EMPRESA'
      FixedChar = True
      Size = 50
    end
    object qryProvPaqHOBSERVACION_CALIFICACION: TStringField
      FieldName = 'OBSERVACION_CALIFICACION'
      Size = 100
    end
  end
  object dsProvPaqH: TDataSource
    DataSet = cdsProvPaqH
    Left = 272
    Top = 480
  end
  object provProvPaqH: TDataSetProvider
    DataSet = qryProvPaqH
    Left = 272
    Top = 528
  end
  object cdsProvPaqH: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'COD_GENERAL_PROV'
    MasterFields = 'COD_PROV_HOSPEDAJE'
    MasterSource = dsMantePaq
    PacketRecords = 0
    Params = <>
    ProviderName = 'provProvPaqH'
    OnReconcileError = cdsProvPaqHReconcileError
    Left = 272
    Top = 584
    object cdsProvPaqHCOD_GENERAL_PROV: TStringField
      FieldName = 'COD_GENERAL_PROV'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsProvPaqHDIAS_VENCIMIENTO_FACTURA: TIntegerField
      FieldName = 'DIAS_VENCIMIENTO_FACTURA'
    end
    object cdsProvPaqHCONTACTO: TStringField
      FieldName = 'CONTACTO'
      Size = 100
    end
    object cdsProvPaqHID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      FixedChar = True
      Size = 7
    end
    object cdsProvPaqHESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      FixedChar = True
      Size = 1
    end
    object cdsProvPaqHCALIFICACION: TSmallintField
      FieldName = 'CALIFICACION'
    end
    object cdsProvPaqHNOMBRE_EMPRESA: TStringField
      FieldName = 'NOMBRE_EMPRESA'
      FixedChar = True
      Size = 50
    end
    object cdsProvPaqHOBSERVACION_CALIFICACION: TStringField
      FieldName = 'OBSERVACION_CALIFICACION'
      Size = 100
    end
  end
end
